﻿Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'START OF TRY FOR Q1'
        Try
            If angry > 1 Then
                FOL1.Text = "Slap Him/Get Violent"
            End If
            If angry = 1 Then
                FOL1.Text = "Yell/Argue in a not-nice way"
            End If
            If angry < 0 Then
                FOL1.Text = "Peacefully Resolve The Conflict"
            End If
            If angry = 0 Then
                MsgBox("We do not have a record for this.  Please return to stage 1")
            End If
            If angry < -1 Or angry > 2 Then
                MsgBox("Please do not play with the buttons")
            End If
        Catch
            MsgBox("Sorry, something has gone wrong")
        End Try
        'END OF TRY FOR Q1'
        'START OF TRY FOR Q2'
        Try
            If angry = 1 Then
                Label6.Text = "2"
            End If
            If angry = 2 Then
                Label6.Text = "3 or more"
            End If
            If angry = 0 Then
                MsgBox("We do not have a record for this.  Please return to stage 1")
            End If
            If angry = -1 Then
                Label6.Text = "1 or less"
            End If
            If angry < -1 Or angry > 2 Then
                MsgBox("Please do not play with the buttons")
            End If
        Catch
            MsgBox("Sorry, Something Has gone wrong")
        End Try
        'END OF TRY FOR Q2'
    End Sub
End Class